home *** CD-ROM | disk | FTP | other *** search
/ Cope with Cancer / Cope with Cancer.iso / pc / cope / comp.dxr / 00069.ls < prev    next >
Encoding:
Text File  |  1998-11-03  |  453 b   |  22 lines
  1. on mouseDown
  2.   puppetSound("button.aif ")
  3. end
  4.  
  5. on mouseUp
  6.   global gcompCategory, gBackFRAME, gBackMOVIE
  7.   if count(gBackFRAME) = 0 then
  8.     puppetTransition(9, 1, 18)
  9.     go(gcompCategory)
  10.     if the visible of sprite 46 = 1 then
  11.       set the visible of sprite 46 to 0
  12.     end if
  13.   else
  14.     cursor(4)
  15.     set i to getLast(gBackFRAME)
  16.     set j to getLast(gBackMOVIE)
  17.     deleteOne(gBackFRAME, i)
  18.     deleteOne(gBackMOVIE, j)
  19.     go(i, j)
  20.   end if
  21. end
  22.